2 DIM L(20),D(20)
5 POKE53281,0:POKE53280,12
7 GOSUB 1000
10 PRINT"[147][142][151][154][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
20 FORA=0TO20:PRINT"[214][146][158]  O   O   O   O   O   O   O   O   O   [154][214]";:NEXT
30 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
40 K=1524:Y=40:X=1
100 IFPEEK(K+X+Y)=32THENPOKEK,32:K=K+X+Y:POKE54272+K,2:POKEK,87:GOTO100
120 IFPEEK(K+X)<>32THENX=-X:GOTO150
130 IFPEEK(K+Y)<>32THENY=-Y:GOTO150
140 X=-X:Y=-Y
150 FORA=1TO20:IFPEEK(K+L(A))<>214THENPOKE54272+K+L(A),13:POKEK+L(A),D(A)
160 NEXT
170 FORA=1TO20:IFPEEK(K+L(A))<>214THENPOKEK+L(A),32
180 NEXT:GOTO100
1000 FORA=1TO20:READL(A):NEXT:FORA=1TO20:READD(A):NEXT:RETURN
2000 DATA-81,-80,-79,-42,-41,-40,-39,-38,-2,-1,1,2,38,39,40,41,42,79,80,81
2010 DATA108,66,123,108,77,66,78,123,67,67,67,67,123,78,66,77,108,123,66,108